home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / DELAYS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  512 b   |  17 lines
  1. 100  '*************************************************
  2. 110  '**  SUBROUTINE TO PROVIDE ACCURATE TIME DELAYS **
  3. 120  '**       (+- 1 SEC) FROM DISK BASIC            **
  4. 130  '*************************************************
  5. 140  '
  6. 150  CLS
  7. 160  SEC = 15
  8. 170  PRINT "START !"
  9. 180  '*************************************************
  10. 190  FOR X = 1 TO SEC
  11. 200  A$ = TIME$
  12. 210  WHILE A$ = TIME$
  13. 220  WEND
  14. 230  NEXT X
  15. 240  '*************************************************
  16. 250  PRINT "FINISH - 15 SEC"
  17.